SUBROUTINE NTS5
	COMMON /STF/RSTFAC(0/7),RSTJ2
	COMMON R2,JA,CENTR,J2,RJQ(20),JQ(20)
	COMMON/PLTR/PLT,RHT,DIS /POSI/STFF(0/7),JJ2,POS
C  ITEMS IN FOLLOWING COMMON BLOCK ARE USED IN 'TAILS' AND 'FERM'
	COMMON/ALF/INP(46),RST7,RST3,RSTX,RMINI,RINV,RA,RX,RJX,RJY,
	1 RB,RJW,RZ,JX,RG,KL,RJAC,K,L,RQ,RH,RZTM,RXX,JJJ,
	1 PUNCT,JY,RJ
	EQUIVALENCE (J3,JQ(1)),(J4,JQ(2)),(J5,JQ(3)),(R4,RJQ(2))
	1,(R6,RJQ(4)),(J7,JQ(5)),(J6,JQ(4)),(R5,RJQ(3))
 	1,(R8,RJQ(6)),(R7,RJQ(5)),(R3,RJQ(1))
 	1,(RX4,JQ(19)),(JSTEM,JQ(20))
CC1121	IF(L.GE.380)RETURN 
C  JUMP IF NO NOTE HEAD
	IF(J6.LT.0)GO TO 1322
C L HAS NOTE-HEAD TYPE
	IF(L.LT.180)GO TO 125
C  FOR DIAMOND AND X NOTES.  UNLESS J6<0
	GO TO 1253
1322	IF(L.GE.180)GO TO 2122
11322	KL=1
	RG=7.  
C  FOR WHITE NOTES ON DPY.
	JY=MOD(J7,10)
	IF(JY.EQ.0)GO TO 2122
	JSTEM=0 
C FOR VARIOUS AUTOMATIC FEATURES IN 'SCORE' SECTION.
	J7=0
	R5=AMOD(R5,10.)
	J5=R5
	IF(PLT.LT.0)GO TO 2121
	IF(JY.NE.2)GO TO 1253
	RQ=POS-18.*RSTJ2+RST7*(R4-1.)
	CALL LINX(R3,RQ,R3,RQ+RST7+RST7)
C PUT IN LINE TO SHOW DBL WHOLE ON SCREEN (P7=2)
C BLACK DIAMOND IS FOUND AS #7 IN CLEFA.DMD
C SET STEM SHIFT FLAG(J6) FOR ORD. WIDTH NOTES.
2122	IF(L.LT.180)GO TO 12122
	IF(J6.GE.0)GO TO 12121
	J6=0
	J5=7
	GO TO 12121
12122	IF(PLT.GE.0)GO TO 1253
2121	J5=15+JY
C IF JY=1, THEN WHOLE NOTE SHAPE INSTEAD OF HALF. (P7
12121	RG=RSTJ2
C   RG  FOR NOW ;FIX THIS SOME DAY↓↓  SEE 1342+1!
	JX4=J4
	RQ=R7
	 CALL DRWNT 
C SAVE IT FOR DOTS
	R7=RQ
	R4=RX4
	J4=JX4
C   GET 'EM BACK
	RSTJ2=RG
C DRAWS GOOD NOTES ON PLOTTER, NOT ON DPY
	RETURN
1251	CALL NOIR(RMINI)
C   FOR QUARTER NOTES ON PLOTTER.
	RETURN
125	IF(PLT.LT.0)GO TO 1251
	RG=22.
	KL=17
1253	CALL NTS3
	END